home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / grab.bas < prev    next >
BASIC Source File  |  1985-06-03  |  2KB  |  63 lines
  1. 1 DEFINT A-Z
  2. 360 SCREEN 0
  3. 380 '
  4. 390 'color/graphics adapter definitions
  5. 400 '
  6. 410 MODEREG=&H3D8:COLORREG=&H3D9
  7. 420 MODESAVE=&H465:COLORSAVE=&H466
  8. 430 CRTREG=&H3D4:CRTDATA=&H3D5
  9. 440 HIRES=1:GRAPH=2:BW=4:VIDEO=8
  10. 450 G640=16:BLINK=32
  11. 460 '
  12. 470 '
  13. 480 'set up color/graphics adapter for 160- by 100-block graphics
  14. 490 '
  15. 500 DEF SEG=0
  16. 510 MODE=0
  17. 520 POKE MODESAVE,MODE:OUT MODEREG,MODE
  18. 530 POKE COLORSAVE,0:OUT COLORREG,0
  19. 540 '
  20. 550 'load new parameters into 6845 crt controller
  21. 560 FOR REGISTER=0 TO 11
  22. 570     READ REGDATA
  23. 580     OUT CRTREG,REGISTER:OUT CRTDATA,REGDATA
  24. 590 NEXT
  25. 600 '
  26. 610 'set mode for 80 column color and enable
  27. 620 MODE=HIRES+VIDEO
  28. 630 POKE MODESAVE,MODE:OUT MODEREG,MODE
  29. 640 '
  30. 650 'clear screen: character=&hde, attribute=0
  31. 660 DEF SEG=&HB800
  32. 670 FOR CHAR=0 TO 15998 STEP 2:POKE CHAR,&HDE:NEXT
  33. 680 FOR ATTR=1 TO 16000 STEP 2:POKE ATTR,0:NEXT
  34. 690 '
  35. 700 '
  36. 710 'initial data for 6845 (80 X 100 characters)
  37. 720 '
  38. 730 DATA 113
  39. 740 DATA 80
  40. 750 DATA 90
  41. 760 DATA 10
  42. 770 DATA 127
  43. 780 DATA 6
  44. 790 DATA 100
  45. 800 DATA 112
  46. 810 DATA 2
  47. 820 DATA 1
  48. 830 DATA 32
  49. 840 DATA 0
  50. 850 '
  51. 860 '
  52. 870 'draw screen
  53. 880 RETURN
  54. 980 '============================================
  55. 990 'plot pixcol at (x,y)
  56. 1000 '
  57. 1010 PIXEL=X+(Y*160):PIXELADDR=(PIXEL AND &HFFFE)+1
  58. 1020 NIBBLE=PIXEL MOD 2
  59. 1030 IF NIBBLE=0 THEN POKE PIXELADDR,(PEEK(PIXELADDR) AND &HF)+PIXCOL*&H10
  60. 1040 IF NIBBLE=1 THEN POKE PIXELADDR,(PEEK(PIXELADDR) AND &HF0)+PIXCOL
  61. 1050 RETURN
  62. DR,(PEEK(PIXELADDR) AND &HF)+PIXCOL*&H10
  63. 1040 I